home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / ms_dos / tool / txf / txf_vz16.def next >
Text File  |  1994-09-17  |  3KB  |  99 lines
  1. ======== txf_vz16.def ========
  2.  
  3. #if 0
  4.  
  5.     ＴＸＦをＶZエディタから使っちゃうマクロ＋α
  6.     ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  7.         (C) えんでん (1992-)1994
  8.  
  9.     このマクロ使用によるトラブルに作者はなんら責任をおいません。
  10.  
  11. 【使用方法】
  12.  
  13. 　ＶZエディタが最初に読み込むＤＥＦファイル(VZ.DEF等）の「* E その他」と
  14. いうところに下の様に書き，エディタ起動時にマクロ（このファイル）を読み込
  15. ませるようにします（よくわからない場合はＶZエディタのマニュアルをご覧く
  16. ださい。ＶZ１．６の場合，vzfl+txf_vz16と書くといいかもしれません(^_^;)）。
  17. 　他のマクロとマクロ番号やコマンドキーが重なっていて不都合が出る場合は予
  18. め適当に変更した方がいいかも。
  19.  
  20. ┌──────────────────────────────────┐
  21. │* E その他                                                          │
  22. │                                                                    │
  23. │1     txf_vz16                                                      │
  24. └──────────────────────────────────┘
  25.  
  26. 　なお，ＶZエディタがＶ１．６の場合は[ctrl]+[K] → [M] → [F]などで後か
  27. ら読み込んでもいいと思います（Ｖ１．５の場合は…）。
  28.  
  29.  
  30. ■ 清書 [ESC]F
  31. -----------------------------
  32. 　・フリーソフトのＴＸＦを使って清書します（∴ＴＸＦが必要）。
  33. 　・ブロックモードではブロック内のみ処理します。
  34.  
  35. ■ 行頭に＞を挿入 [ESC]K
  36. -----------------------------
  37. 　・カーソル行頭に＞を挿入します。
  38. 　・ブロックモードではブロック内の全ての行頭に挿入します。
  39. 　・ブロックモード以外ではあまり使う意味がありません（笑）
  40. 　・パソコン通信における引用処理などに使えます。
  41. 　・マクロを書き換えれば＞を他の文字にすることもできます（あたりまえですが）。
  42.  
  43. ■ 行頭の一文字を削除 [ESC]J
  44. -----------------------------
  45. 　・カーソル行頭の一文字を削除します。
  46. 　・ブロックモードではブロック内の全てに行の一文字目を削除します。
  47. 　・ブロックモード以外ではあまり使う意味がありません（笑）
  48. 　・行頭の＞などをまとめて削除するのに使えます。
  49. 　・行頭がリターンコードの場合はそれを削除しません。
  50.  
  51. #endif
  52.  
  53. * M マクロ
  54.  
  55. 80 [ESC]H "【ツールメニュー】"
  56.     !01
  57.  
  58. 81 [ESC]F "TXFﾃｷｽﾄ整形"
  59.     ?. #] &s (mr==$80)? {&b(10) &d .}
  60.     &a("ＴＸＦによる整形をします") (r!=1)? {&d .}
  61.     (mb)? >A
  62.     (mr==1)? {#S #m}
  63.     #E "txf -io " #P #m #[
  64.     #L #P #m
  65.     &m("整形直前のﾃｷｽﾄは拡張子BAKで存在") &d .
  66. :A    t=".\",                        ;←作業用ﾃﾞｨﾚｸﾄﾘ指定
  67.     #S &?(t) "txf__.tmp" #m
  68.     #E "txf -io " &?(t) "txf__.tmp" #m #[
  69.     #y n=wn,
  70.     #O &?(t) "txf__.tmp" #m
  71.     #b #_ #> #k #C &#T(n) #i
  72.     #E "del " &?(t) "txf__.*" #m #[
  73.     &m("^j で整形前のﾌﾞﾛｯｸを復元可能") &d
  74.  
  75. 82 [ESC]K "行頭に＞を挿入"
  76.     &a("行頭に＞を挿入します") (r!=1)? .
  77.     (mb)? >A #11 '＞' .
  78. :A    &s mi[, mi=0, n=ln,
  79.     #B o=ln, #B
  80.     (n<o)? >C >B
  81. :B    #11 '＞' (ln!=o)? {#e >B} mi], #b &d.
  82. :C    #11 '＞' (ln!=o)? {#12 #x >C} mi], #b &d.
  83.  
  84. 83 [ESC]J "行頭の１文字を削除"
  85.     &a("行頭の１文字を削除します") (r!=1)? .
  86.     (mb)? >A .
  87. :A    &s mi[, mi=0, n=ln,
  88.     #B o=ln, #B
  89.     (n<o)? >C >B
  90. :B    #11 (ct!=1)? #15 (ln!=o)? {#e >B} mi], #b &d.
  91. :C    #11 (ct!=1)? #15 (ln!=o)? {#12 #x >C} mi], #b &d.
  92.  
  93. * P メニュー
  94.  
  95. 1    "",34,3,20
  96.     &81 &82 &83
  97.  
  98. ;======== End of txf_vz16.def ========
  99.